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C.A.T.U.G. CLUB OFFICERS 

Here is the list of 1994 club officers and how to contact them. 
The club has two strong SIGS, SPECTRUM/TS2068 and QL. If you 
have questions about either of these fine machines, or even the 


ZX81/TS1000/TS1500, call one of the officers. C=312, S=708. 
POSITION NAME PHONE PRIMARY FUNCTION 

President Nazir Pashtoon S439-1679 The buck stops here... 
Vice-President Steve Cooper S$968-3553 Meeting Planning, etc. 
Secretary Larry Sauter C763-5383 Records and Reporting 
Treasurer Frank Mills $544-1918 Dues and Purchasing 
Editor Bob Swoger S576-8068 Newsletter, BBS, etc. 
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Nite-Times information 


The Rite-Times News is the 
newsletter of the Chicago Area 
Timex Users Group. For an annual 
fee of $12.00 you can become a 
CATUG member and receive six 
newsletters each year. Write your 
check payable to: 


FRANK MILLS 
417 S 47th AVE 
BELLWOOD IL 60104 


The Chicago Area Timex Users 
Group is pleased to exchange 
newsletters with other Timex 
and Sinclair supporting user 
groups at no charge. Send all 
newsletter requests to: 


CATUG EDITOR BOB SWOGER 
613 PARKSIDE CIRCLE 
STREAMWOOD IL 60107-1647 


If you desire to reprint any 
articles that appear here, 
please provide credit to the 
author and this newsletter. 


We encourage your user group to 
copy this newsletter and 
distribute it at your regular 
meetings to your members free 
of any charge as we believe 
that this will encourage better 
meeting attendance. If you are 
a user group that feels as we 
do, please let us know in your 
newsletter so that we might do 
this for our members and keep 
our attendance up. 


Articles originating from our 
group may be downloaded from 
our BBS and reprinted. 


CONTRIBUTORS TO THIS ISSUE 


Al Feng 

Frank Mills 

Larry Sauter 

Bob Swoger, K9WVY 


CLUB MEETINGS 


The Chicago Area Timex Users 
Group meets on the THIRD 
Saturday of each month at the 
home of our meeting coordinator 
Steve Cooper in Downers Grove, 
Illinois from 1:00 to 5:00 PM. 
Steve's home is lovingly called 


the CLUB HOUSE and is located 
at 1300 Maple Street in Downers 
Grove just 2 blocks southwest 
of the Downers Grove Public 


' Library. Steve should always be 


contacted evenings at 708/968- 
3553 to confirm the meeting 
schedule. 


TREASURY NOTES 


The balance as of Nov. 1, 1994 
is $364.43 Our current paid 
membership stands at 19. 


Frank Mills, Treasurer 
Chicago Area Timex Users Group 


SECRETARY'S NotePad 


September 17, 1994 


Meeting began at approximately 
2:35 P. M. 


Members present: Steve Cooper, 
Frank Mills, Nazir Pashtoon, Bob 
Swoger, Phillip Kwitkowski, Larry 
Sauter, John Donaldson, Abed 
Kahale, Jeff DeCourtney, George 
Zimmerman, and Bobby Muth. 


The reason Bob hasn't gotten out 
the Nite Time s News is that he 
has been battling the Park 
District and he has been busy 
with that endeavor. 


Abed has become the glad 
recipient of an optical scanner 
and optical character recognition 
courtesy of his children. 


Rod Gowen wrote Abed and told him 
about his failing eyesight and 
Bob was going to send him his 
latest release of LogiCall and 
the description of what it will 
now do. The package should be 
available for $15.00. 


Bob described the picnic at his 
home and the number of guests 
that enjoyed the afternoon at 
his house and the demonstration 
that ensued of a CoCo computer 
that has a 68340 processor that 
was as fast as can be with a read 
and write optical drive with 21 
megs of capacity on 3 1/2 inch 
drive. Heavy duty stuff. 


Larry Sauter, Acting Secretary 
Chicago Area Timex Users Group 


From the EDITOR'S Disk 


It doesn't seem that long ago 
that from the land where folks 
had empty coal buckets at home 
came the $99 Sinclair 2Zx80 
Computer. Next year the 2x81. I 
got hold of the ZX81 ROM and 
dropped it into my ZX80. What 
* computing power! One program I 
entered took 23 minutes to give 
me an answer after I pressed the 
ENTER key (and it was the right 
answer). 1985 bought me a TS2068 
for my birthday. I didn't feel I 
needed it but when I unplugged 
the $29 2X81 and plugged in the 
TS2068, I couldn't go back. 
Shopped and compared and got a 
LarKen disk drive interface. 
Plugged it into a 3 1/2" drive - 
100 programs - felt like a hard 
drive. Magazines and newsletters 
provided more information than 
anything I could have learned 
hacking around. These writings 
are the life blood which kept the 
users going so long after the 
manufacturers abandoned us. From 
Canada came some of the best. 


Well, now one of my favorite 
newsletters just signed off in 
the same elegant fashion that 
they maintained throughout their 
twelve year history. When we read 
that they might stop publication, 
we wondered what could be the 
problem up there? The articles 
seemed so strong and informative. 
ZX81, TS2068 and the QL were all 
well represented. Canada users 
seemed light years ahead of our 
midwest groups in learning about 
their machines and were bringing 
us up to speed through the SINC- 
LINK newsletter. 


It seemed that there were so many 
readers. So sure were we that 
there was still great interest in 
Sinclair computers north of the 
border that we sent all the known 
members listed in the final issue 
free copies of ZXir QLive Alive! 
newsletter to keep the Canadian 
Sinclair users connected. Two 
responses came pouring in! 


Was this due to the fact that the 
quality of the SYNC-LINK 
newsletter was so much better 


than ZQA? No, I don't think so. 
George, you said the TTSUC group 
had 'BECOME LONG IN THE TOOTH', 
guess you were right - we down 
here just didn't see it coming. 


Articles from George Chambers, 
Larry Crawford, Bob Mitchell and 
others were always what we LarKen 
users waited for while our QL 
owners scanned the pages for Hugh 
Howie's QL articles. Jeff Taylor 
must have kept the whip cracking 
for new articles and with the 
help of print factory written by 
the Boisverts, put out one of the 
prettiest newsletters we'd ever 
seen. I want to tell you folks 
that the CATUG group for one 
could hardly wait the two months 
to see what new treat SINC-LINK 
would give us next. 


Well done, Canada - Jeff Taylor - 
Bob Mitchell - Bill Lawson - 
Louis Laferriere - Larry Kenny - 
Hugh Howie - Larry Crawford - 
Howard Clase - George Chambers - 


Rene Bruneau - Eric & Kris 
Boisvert - Andre Baune - you guys 
showed us some class - your work 


was top notch! 


Thanks to many Canadian users, we 
now have the utilities to make 
good looking newsletters - cards 
- banners, make sprites, read IBM 
text files, change any bit ona 
disk to suit our needs, all sorts 
of new LarKen printing and disk 
Management utilities, even 
rebuild the directory track on 
the LarKen disks if needed - the 
Canada users were our PETER 
NORTON. 


We stateside users hope you don't 
retire your setups completely so 
that we might get help from time 
to time. The challenges of 
Sinclair computing are still out 
there. 


George, what I hope you can still 
find time to do is inform us 
LarKen users how to convert those 
snaps that run on the 2ZxX80 
emulator to LarKen NMI saves. 
LarKen still doesn't have a 


-utility to check disk drive 


speed. We feel that the Canada 
group may be the only ones that 


can figure that out for us. So 
you see, there was some work left 
that needed doing. 


As for the state side 
Timex/Sinclair users - WE ARE 
STILL ALIVE! T/SNUG continues its 
newsletter with a few more 
members every year as user groups 
dissolve. T/SNUG has a BBS to 
pass Sinclair related files and 
dialogue. Michigan's Q-BOX BBS 
not only continues to support 
Sinclair machines but also 
supports those that switched to 
an IBM platform supplying help 
for QXL users and 280 emulator 
users to run both Spectrum and 
TS2068 programs. We are very 
fortunate to still have 
Mechanical Affinity, RMG, UPDATE! 
magazine and others to support. 


We are really grateful for what 
all of you in Canada have given 
us over the years including great 
friendships! --==GATOR==-— 


Bob Swoger, Editor 
Chicago Area Timex Users Group 


GATOR's TWISTED PAIR 


1: REMEMBER a 
We have a 24 hour BBS and 
encourage you to exchange mail 
and contribute to the Download 
Section. Use it and have fun! 


Call the BBS at 708-632-5558 and 
register. On your next call your 
security level will be increased 
to 5 on this RBBS and you will be 
able to have most privileges. 


Bob Swoger, SYSop 
Chicago Area Timex Users Group 


ITEMS FOR SALE THROUGH THE CLUB 
It has come to our attention 
that some lLarKen Users are 
using something less than 
Version 3 firmware. The club 
will supply updated EPROMs, 
SYSTEM DISKS, and MANUALS for 
just $5 which includes shipping 
and handling, free if ordered 
with LogiCall or Spectrum ROM. 


If you are a  LarKen LKDOS 
owner and would like a SPECTRUM 
v2 kit for your system we will 
supply an EPROM, socket and 


over 40K copies in 


74HCT32 for $12 which includes 
shipping and handling. The 
install instructions are in 
your LarKen manual. We shall 
not be responsible for your 
install job. AERCO owners need 
only the SPECTRUM EPROM for $10 
a 
If you have a mismatch between 
you LarKen DOS EPROM and your 
Western Digital Controller 
chip, we will send you the 
correct one for free on behalf 
of our friends Rod Gowen of RMG 
and Larry Kenny of LarKen. You 
should be using L3 EPROMs with 
WD1770 controller chips or L3F 
EPROMs with WD1772 controller 
chips. Check it out! Call in 
requests to Bob Swoger at 
W708-576-8068 H708-837-7957 


SPECIAL DEALS AND BUYS 


NAP_Ware (Nazir A. Pashtoon's 
new endeavor) announces the 
availability of all Timex or QL 
PAL (Programmable Array Logic) 
chips. If interested, call him 
evenings on 708-439-1679. 


LogiCall Integrated Software 
Ensemble easy operating system 
for LKDOS in both TS2068 and 
Spectrum modes includes 
LogiCall 5.0 TASWORD TWO V2.8, 
VU-CALC V1.6, VU-FILE and 
MTERM2 Drivers modified for 


LogiCall, DISKS.Bl TAPES .Bl 
steprt.Bl HEADER.BT — (tape 
header reader by Nazir 


Pashtoon) FORMAT.B  MOVE.BL and 
more all on 2 SSDD disks for 
$15. You must specify your 
LKDOS EPROM version. If you 
already have a copy you are 
encouraged to distribute copies 
to other LarKen LKDOS' users 
for as you see by the price we 
are not in the business of 
making money on it, just making 
LarKen's LKDOS even better! Call 
in requests to Rod Gowen of RMG 
Enterprises or Frank Davis of 
Mechanical Affinity. 


So you like to fly? The 747 
Flight Simulator for Spectrum 
by Derek Ashton of DACC sold 
EUROPE. 
Requires Spectrum Emulator. At 
this time supplied on LarKen 


SSDD disk only for $10 which 
goes to Derek Ashton, now 
working at MOTOROLA with Bob 
Swoger. Call in requests to Bob 
at W708-576-8068 H708-837-7957 


ARTICLES 


ADDING TWO MORE DRIVES 
EASY Saturday morning Task 
by 
Bob Swoger 


Did you ever get going on one of 
those little tasks that could be 
done in an hour or two on a 
Saturday morning? Here's a for 
instance - Phil Kwitkowski called 
and asked to do a little file 
transferring from the BBS. "Sure, 
no problem". After he downloaded 
five files, it was my turn to get 
some files from him. He put the 
MaxCom disk in drive ZERO and 
then "Darn! I wish I had more 
drives!" 


Well that should be no problem. 
Although Phil had acquired an 
Apollo case for his first two 
drives, we thought he'd never 
find another case to match. 
Miraculously, a friend had one 
sitting around and offered it to 
Phil. The case had a power supply 
and THREE disk drive connectors 
but room for only two half height 
drives. It really looks great and 
professional on the TS2068 hutch! 


Phil had just been to two 
computer fests and picked up a 
couple of three half height DSDD 
drives for $5. He already had the 
cable and a quick trip to the 
local Radio Shack store gave us 
enough connectors to complete the 
job. Hey! a lot of great new and 
close out items around the store. 
Well, that trip cost us an hour! 


Now Phil had the first drive on 
his TS2068 using a cable Abed 
Kahale had made for him. The 
cable connected the two drives 
together and then ran out the 
back of the Apollo box and went 
right to the LarKen interface 
board. 


Now if this was to be a quick 
Saturday morning project we would 


leave the first cable pretty much 
alone and just add one 34 pin 
board edge connector to it. We 
would build a cable for the 
second Apollo box identical to 
the first so that the second box 
could be unplugged from the first 
with ease. And now the elegant 
part. We would fashion a printed 
circuit board out of an old scrap 
board in my junk box that 
contained about fifty .1 inch 
traces, 25 on each side, running 
the length of the board. 


Phil had a band saw and cut a 
small piece of the board so that 
17 traces on each side of the 
board were left and at a width 
just wide enough to slip into the 
34 pin board edge connectors. For 
the rest of this writing we shall 
call this board a cable 
interconnect board. 


We added a Radio Shack 34 pin 
board edge connector to the cable 
of the first box, slipped the 
little cable interconnect board 
into it, and then plugged the 
cable from the second disk drive 
box into the other end of this 
cable interconnect box. Get it? 
Now the two cables are in 
parallel! 


But when we powered up the lights 
on all four drive's came on! Hey 
- no problem! the cable in the 
first box must have been built 
with the red tracer of the ribbon 
cable on pin 34 instead of pin 
one. We will just power down and 
reverse one of the connectors on 
the cable interconnect board. 


We powered up again. No problem! 
All the lights are off. At the 
drive prompt in LogiCall we 
entered '0'. Drive 0 turned and 
we got a CATalog but at the top 
it said CRC ERROR 000! We entered 
'1' at the program prompt. Drive 
1 turned and another CATalog with 
CRC ERROR 000! Drive 2 and 3 
didn't even turn! We felt the 
panic begin but we remained 
analytical. We disconnected the 
second drive. We asked for 
CATalogs again. Both drive still 
gave us the same CRC ERRORs. 


‘Also, drive 1 was now making a 


grinding sound. We changed the 
disks in both drives for fresh 


ones. All was fine now! We had 
corrupted two disks! 


Next we unplugged the first set 
of drives from the LarKen and 
tried the second set of drives. 
They worked fine! Hey! I thought 
there was a cable in this system 
that was made with the red tracer 
on pin 34 - not so if both drives 
work independently! The little 
board we made must be the 
culprit. Maybe the traces on the 
gold plated end are too close 
together and short out the 
connector. I had seen in the 
past. Improperly plugged-in 
connectors in the LarKen system 
caused pins in the connector not 
to connect to the board traces 
due to improper alignment. Let's 
make another cable interconnect 
board from a section of the board 
where the traces remain .1 inch 
the whole length of the board. 
Also we will be sure that it is 
wide enough to remain tight at 
the ends of the connector. It 
took two tries! 


Phil fashioned the board and 
began stripping the solder resist 
from the foil so that the 
connectors would make contact 
with the traces. I looked into 
the two connectors side-by-side 
that his masterpiece was about to 
connect together this time with 
the perfection of accuracy. ARGH! 
Wait a minute! This isn't going 
to work! I screwed up! Pin 1 on 
one cable is going to connect to 
pin 2 of the second cable - 
everything is reversed! That's 
why all the drives came on the 
first time! 


Brains still working, I grabbed a 
short six inch long cable from 
the junk box with 34 pin board 
edge connectors on both ends and 
plugged it onto the cable 
interconnect board Phil had just 
completed. I put the first cable 
interconnect board we thought was 
bad into the connector on the 
other end. I then plugged the two 
cable interconnect boards into 
the connectors of both drives. We 
powered up on the RAMDISK with 
LogiCall - at the Drive prompt 0 
-1-2-3- 4- all five drives 


answered up with CATalogs! Voile 
- it all worked! 


Phil's mom invited us upstairs 
for a dinner of broccoli soup. It 
was delicious! Dinner!!!? Yes - 
Phil and I just come to realize 
that we had just blown away 
another perfectly good Saturday 
morning! [Yea, and a Sunday 
morning writing this article! ] 


MDIR_BAS v1.05 
by 
Al Feng 


MDIR_BAS (v1.05) is a SuperBASIC 
program designed to facilitate 
using the MAKE DIR keyword 
(FLP/RAM, [SUPER] GOLD CARD, QXL]. 


The MAKE DIR keyword is used for 
creating sub _DIRectories -- that 
is, subordinate DIRectories to 
the main directory. On the QL, 
these appear as names appended an 
arrow-type symbol (' ->'). 


I have found that on some 
occasions (I think this is caused 
by using an older TURBO TOOLKIT), 
the MAKE DIR command is ignored 
by my QL. This is "corrected" by 
re-invoking the TK2_EXTensions 
command. 


If you do not yet have the 
MAKE DIR keyword on your system, 
then you can modify the program 
for other purposes by having the 
appropriate DEFined PROCedures 
perform the tasks you want. 


The SuperBASIC LISTing is not 
optimized; but, compiles easily. 


A CPORTed {ANSI} version is also 
included for comparison for those 
interested in seeing how a 
functional 'C' program looks. I 
have not tried compiling the 
MDIR_c code, yet. 


Using MDIR_BAS 


MDIR_BAS uses the five 
function_keys and the Escape_key 
(to quit). Simply press the 
appropriate function_key for the 
-QDOS device on which you wish to 
MAKE (a_sub_)DIR(ectory). The 
options are: 


flpl_ == [F1] 
flp2_ = [F2] 
winl_ == [F3] 
win2_ == [F4] 
other == [F5] 


Thus, if you want to make a 
sub_DIRectory on 'flpl_' you 
would press 'F1l'. You should see 
a flashing_cursor within a 
highlighted (green) strip which 
should correspond with the 
function_key that you pressed. 
INPUT the sub DIRectory name. 


If you INPUT "test" (for 
example), when you exit the 
program you should see the name 
"test ->" in the appropriate 
DIRectory. 


If you INPUT a name longer than 
10 characters, the menu window 
will reset. Use this feature to 
your advantage if you decide that 
you have selected the wrong 
storage device. 


If you select 'F5' for ‘other', 
you must input the DEVice name, 
including the underscore ('_'). 


Of course, press the ESCape key 
if you want to exit the program. 


There is no error_trapping in 
version 1.xx of the program. If 
you duplicate an existing 
filename, the program will halt. 
(NOTE: MDIR_exe 2.xx has a 
duplicate name trap and 
accompanies all PLATYPUS Software 
programs). 


Some thoughts about CPORT & MDIR_c 


The 'C' programming language is 
very much ballyhooed as being the 
ideal vehicle for writing 
transportable source code that 
can then be compiled for 
different computer operating 
systems. I don't know if this is 
true or not. 


I have heard that 'C' is 
apparently a preferred 
programming language because most 
computer science students have to 
learn it, and that having gone to 
the effort they are reluctant to 


abandon it. I don't know if this 
is true or not, either. 


I do know that because it is a 
mid-level language it does not 
have many of the amenities (i.e., 
keywords) found in BASIC. 


I know that there had been many 
rudimentary concepts about the 
'C' language that I did not 
"grasp" because I had relied 
quite heavily on various books 
which obviously presumed you knew 
things that I obviously did not! 


The first was the "main()" 
designation. Stating what is now 
the obvious, it is that portion 
of a SuperBASIC program that is 
not contained as PROCedures 
(presuming you are using 
PROCedures) . 


The next thing that is worth 
mentioning which seemed "strange" 
was the structure and notation. 
Some time ago I ascertained that 
the "strange" notation/structure 
is a byproduct of the language 
having been designed to be hand 
written, first, rather than on a 
terminal. Thus, REMarks are 
framed by "/* */"; each 
statement is written on a 
separate line; and, so on. When 
scribbled on a legal pad, the 
notation seems quite appropriate; 
and, almost logical. So, I 
bought my copy of CPORT (Digital 
Precision) from Mechanical 
Affinity last Fall. It was 
expensive, but it was certainly 
no more expensive than a course 
on 'C' would have been; and in 
the end, there is nothing quite 
like having the benefit of a 
rosetta stone to see how 
PROCedures and their statements 
translate directly to the 'C' 
language from SuperBASIC. 


Now, my first attempts at using 
CPORT resulted in more ERRORs and 
WARNINGS than I would have 
thought. 


Initially I was disappointed and 
frustrated by my first attempts 
because I use the TURBO compiler 
which is apparently more demanding 
than the LIBERATOR; and, certainly 
more demanding than interpreted 
SuperBASIC. I put the program away 
for several months since I had 
other things to do. 


Well, I come from a long line of 
read-the-instructions-last users. 
This is not to say that I don't 
read the instructions, but since 
I think the computer is supposed 
to make things easier, I 
especially think that most 
"modern" software should be 
relatively easy to use. Really 
good design, regardless of mode 
of expression, usually has a 
simple elegance underlying it. 


One problem I encountered on my 
initial attempts to CPORT a 
program was using the INKEY$ 
keyword. Fortunately, there are 
two, short, sample programs 
included with CPORT, one of which 
employs INKEYS! 


My other problem involved slicing 
an array. This took more effort, 
and periodic thought over a six 
month period. 


CPORT's limitations are the 
SuperBASIC code that you give it 
to translate. GIGO, indeed! 


The limitations of the 'C' 
language's transportability should 
be obvious when you look at the 
number of statements which begin 
'SB_' (SuperBASIC) suggesting 
that some "massaging" certainly 
needs to be done to the code if 
it is to be used on another 
computer platform. 


Nonetheless, I hope the inclusion 
of the CPORTed code makes some 
aspects of the 'C' language less 
cryptic. 


HAPPY TRAILS, AND COMPUTING, TO 
YOU s.e. 


=[ Program listing on page 11 ]= 


To put an AD in the BBS and 
newsletter, upload a file with 
the filename.filetype: 
CATUGxXxx.ADS 
where xxx is your initials. 
! ! ! Our ADS are free Ue ae 


Your ADS appear in FOUR 
different newsletters! 


FOR SALE: 941015 
ESEEEEEEEEEEEEEEEEEEEEEEEEEEEES 
Macintosh Software for sale: 
HyperCard 2.1 


(Development Package) ..... $35 
Think Pascal 4.0 .......... $60 
DISKTOP: 4.5. 5 sccee wisi eras oo iges $10 
SAT I (Cliff Notes) .........$5 
Sensei Geometry ............ $10 
Capitalist Pig 

(Business Simulation) ...... $5 
Elements of Style 
(Strunk & Whites) ........... $5 
Writer's Helper .............$5 
Destination Mars 

(Educational Game) ........ $10 
Snoopy's Yearn to Learn ....$10 
Journeyman Project (CD) ....$10 
Spectre VR 


(Networkable Tank warfare) $10 
El Fish (Aquarium Graphics) $10 


Tempo II (Macro Program) ...$10 
Tempo EZ (Tempo II Lite) ....$5 
Capital. BELL (CD) sie cesses $10 
Oceans Below (CD) .......... $10 
Vantage 


(Text Processor Desk acsry) .$5 
Contact:Doug Eaton 708-576-2116 


FOR SALE 940914 
EEEEEEEEEEEEEEEEEEEEEEEEEEEEEES 
NEC CD-ROM gen. ref. bundle 
upgrade MAC version. Never used 
Including 4 software discs, 
disc house, install. disketts & 
2 Koss SA/30 amp spkrs. Make 
offer to Randy 708-468-1927 


FOR SALE 940914 
EEEESEEEEEEEEEEEEEEEEEEEEEEEEES 
New unopend fax/modem Practical 
Peripherals 14400 v32bis with 
lifetime warranty ......... $100 
4-4mb memory chips, barely used 
Priced at $120 each or $450 for 


‘all four. Call 312-928-6847 


FOR SALE 940914 
CEEEEEEEEEEEEEEEEEEEEEEEEEEEEES 
MAC Plus 1Mb/128K ......... $150 
image) Writer TIS hs. savant o's $100 


Robert 708-374-8612 


FOR SALE 940914 
EEEEEEEEEEEEEEEEEEEEEEEEEEEEESS 
Compudine 386SX 16MHz, 5M RAM 
60M HD doubled to 113M SugarVGA 
3.5" HD sound blaster card, 2400 
Baud int modem DOS 6.2 $750 OBO 
Dan or Teri 708-884-9035 


FOR SALE 940914 
EEEEEEEEEEEEEEEEEEEEEEEEEEEEEES 
Super Nintendo game. Super Star 
Wars - Like new in original box 
& Instructions: sree aae 6 $25 
Frank Cerny 447-6503 


FOR SALE 940914 
EEEEEEEEEEEEEEEEEEEEEEEEEEEEESYS 
YEASU FT101B w/Shure 44 deskmic 
+ finals. Excellent condition. 

EA ole AA A OE EAA $330 OBO 
Mark after 6 pm 358-3388 


FOR SALE 940914 
EESESEEEEEEEELEEEEEEEEEEEEEEEES 
Computer XT 640Kb, 20meg HD, 
1 FDD PMP screen, Seréparallel 
ports. Lots of useful s/w: 
Wordstar, Spreadsheet, etc. 
Good starter for the home & 
easy to use. .......... $175 OBO 
Dan 708-359-7293 eves. 


FOR SALE 940914 
CETEEEEEEEEEEEEEEEEEEEEEESEESEEES 
Laptop Computer - NEC w/ext FDD 
mon RAM int modem ser/prnt prts 
s/w in ROM Wordstar, Filer, 
Spreadsheet, Comm. Lt. weight - 
great for student. 

.. e... $250 OBO Dan 708-359-7293 


WANTED 940902 
EESEEEEEEEEEEEEEEEEEEEEEEEEESESES 
Any information such as catalog 
description, owners manual, or 
service manual (to buy or copy) 
for a Radio Shack Realistic 
STA-2250, Model 31-2095 Digital 
Broadcast Stereo AM/FM HI-FI 
receiver about 1983 vintage. 
Frank Cerny 708-576-2443 days 
8922 W 24TH ST 

N RIVERSIDE IL 60546 


FOR SALE 940714 
EESEEEEEEEEEEEEEETEEEEEEEEEEEEES 
Zenith Easy-PC 20 mg hard drive 
B/W monitor 3 1/2" FDD easy to 
use. $200 OB. 708-228-1042 


FOR SALE 940714 
EESEEEEEEEEEEEEEEEEEEEEEEEESEES 
IBM XT Turbo 20mg HD 512K RAM 
VGA monitor w/Epson LOQ-510 24 
pin printer US Robotics extrnl 
modem $200 for all.708-726-0650 


FOR SALE 940714 
EESTEEEEEEEEEEEEEEEEEEEEEESEEEES 
Atari 800 48K + BASIC cart. FDD 
interface module printer modem 
color monitor 150+ game disks 
word processor 4 joy sticks 
$85 OBO Dan 708-359-7293 


FOR SALE 940714 
EEEEEEEEEEEEEEESEEEEEEEEE SEELEY 
IBM AT CLONE 40mg HD mono VGA 
640K RAM mouse 2400B modem 
287 C\P, lots of s/w 360K & 
1.4M FDD & more 

$350 OBO Dan 708-359-7293 


FOR SALE 940714 
EESEEEEEEEEEEEESEEEEEEESEEEEEES 
IBM XT CLONE 20mg HD CGA mono 
640K RAM 360K FFD lots of s/w 


$175 OBO Dan. 708-359-7293 
FOR SALE 940714 
EEEEEEEEEEEEEEEEEEEEEEEEEEEEEES 
CoCo3 hardware, software, 
publications. Contact: 
Chester Jaffee 

PO BOX 5369 


Berkeley CA 94705 


FOR SALE 940603 


SEESEEETEEEEEEEEEEEEEEEEEEEEEESS 


SWIPC 6809 system. Includes 
Soroc IQ-120 terminal, 48K RAM, 
dual 5.25" floppies, 1200-baud 
modem, lotsa boards, software 
and accessories. 

Dave Spensley 
davesp@comm.mot.com 


WANTED 940520 
EESEEEEEEEEEEEEEEEEEEEEEEEEEEES 
Collage Complete Microsoft 
Windows or any screen grab 
program for DOS based 
-applications. If you have or 
know of anyone who has this 
type of software, contact me 
PLEASE! Ann Jenkin 708-538-3598 


FOR SALE 940304 
LEEEEEEEEEEEEEEEEEEEEEEEECEEETE 
SINCE I GOT IT AT A GOOD PRICE, 
I'LL BE GLAD TO GIVE IT UP AT 
A GOOD PRICE. INDIVIDUAL PARTS 
OR ALL TOGETHER. YOUR CHOICE. 
NEW AMIGA 500 IN BOX ALL DOCS. 


saae 6 eM e aisle OO oleh ere ec Ste ss $250 
EXTRA DISK DRIVE ....---++> $25 
EXTRA 512K RAM CARD ...-.- .. $25 
AMIGA MONITOR AND CABLE ...$150 


1200 BD MODEM ..seessese E0] 
APPLE CARTRIDGE WITH ROMs .$200 
MIX AND MATCH, MAKE ME AN OFFER 
CALL BRUNO RUSSO 708-587-7140 


Wanted: 940304 
ELLEEEBEEBEEEEEEEEEEEEEBEEEEEES 
FOR CoCo 2 only Universal Video 
Driver for Composite Video; 
Disk Drive O 5.25" Floppy 
Disk Drive Controller w/ cable; 


RS-232 "Y" cable; Any ROM 
cartridge programs; Any 
cassette programs; Any TRS-80 
CoCo books other than Color 


BASIC and Extended BASIC books. 
Larry Sharpe 

PO BOX 62156 

CINCINNATI OH 45262-0156 


FOR SALE 940304 
LELEEEEKEEBEEEEEEECEEEEEEEESECSS 
1. Os-9 C-Compiler.......... $20 
2. Os-9 Level 11........00.. $10 
3. Color Profile...........- $10 
4. Os-9 Level I 

with BasicO9* .......... $10 


5. BasicO9 Tour Guide Book 
. FREE with 2 or 4 above. 
6. Complete Rainbow Guide to 
OS-9 Book 
..FREE with 2 or 4 above. 
* Item #4 contains vs. 01.01.00 
& vs. 02.00.00 
26-3030 
& 700-2331 
CAUTION: "YOU" pay all mailing 
costs.Inquiries should indicate 
need for either or both of the 
books. Please notify me 
privately on netmail @ 1:114/36 
or via Internet to 
phxken@nighthawk.stat.com 
Snail Mail: Farrell Kenimer 
2601 W. Corrine Dr. 
+w Phoenix, Az 85029-2579 
COCO HARDWARE FOR SALE: 
1. COCOIII w/Tandy 512K RAM & 
w/manual & ECB User's Guide if 
desired.: osseete asas E eaa $75 
2. COCOII 64K RAM ECB ...... $10 


Tandy Cat. no's. 
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These Color Computers will 
require from $10 to $15 U.S. 

Postage for lst Class, insured. 

UPS via truck (10 days) is 
somewhat less and all packages 
are supposed to be covered for 
up to $100 automatically. 
Please send inquiries to 
Farrell Kenimer. 

Both these machines are surplus 
to my needs as I own two other 
512K CoCos. 


FOR SALE 940304 
EEEEEEEEEEEEEEEEEEEEEEEEEEEESEEE 
CoCo3 128K - CoCo3 512K 


Disk DR 0 Disk DR1 & 3 (DSDD) 
4 Disk Controllers 

2 EPROM burners 

MPI (PAL) Soft case 

For CoCo: 

MODEM 2, LIGHT CONTROLLER 

LINE PRINTER 120 

DIGISECTOR DS-60/69B 

SPEECH SOUND CARTRIDGE COCOMAX 
ALL DISK PROGRAMS ALL TAPES 
1 DELUXE JOYSTICK, 4 JOYSTICKS 
MOUSE - GRAPHICS TABLET 
VIDEO INTERFACE KINGS QUEST III 
coco2 64K DISK DR 0 CONTROLLER 
CASS&CABLES 2 JOYSTICKS MPI 
TRS-80 MODEL III (RS) 48K 
2 DISK DRIVES AND ALL SOFTWARE 
TO HERE! !!! $300 TAKES ALL 
BARRY RUCHALSKI 708-742-7775 


FOR SALE 940304 
EEEEELEEECEEEEEEEEEEEEEEEEEEEES 
YEASU FT101 EX TRANSCEIVER $250 
5 BAND VERTICAL $50 
BARRY 708-742-7775 


FOR SALE 940304 
$2232E223EREEEEEEEEEESSEEELIEES 
I have one (1 count'em) Nuvotel 
96424IFX internal fax/modem for 
sale. It does data at 2400bps 
and faxes at 9600bps. I have 
used it for about a year and it 
performes flawlessly. Data side 
has V.42bis compression & error 
correction protocols and MNP 
classes 2,3,4,and 5. Fax is 
group 3 compatible with V.29, 

v.27 ter, V.23, V.22bis, V.22, 

and V.21 recommendations. (That 
means it does a good job). $30 
gets it. Includes DOS software 


-and everything to hookup. 


Mark Hall 
hallmark@netcom. com 
(214) 262-8320 


MDIR_bas 


100 


110 
120 
130 
140 
150 
160 
170 
180 


190 
200 


210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 


530 
540 
550 
560 
570 
580 


590 
600 


DIM BLANKS (24), Knot$(24), thi$(20), thi2$(15), F$(15), t$(3), 
dev$ (24) 

BLANKS=" "; REMark 21 SPACES 
Knot$="invalid QDOS device!" 

FS="_FLIST_ imp": t$="flp" 

a=1: POKE 163890,0: MODE 0 

Wt: Wz: Wo 

FILE 

DEFine PROCedure Wt: WINDOW#2,512,256,0,0: PAPER#2,7: END DEFine 
DEFine PROCedure Wz: WINDOW#0, 413,10,50,241: PAPER#0,7: INK#0,2: 
END DEFine 

DEFine PROCedure Wo: WINDOW 462,250,25,3: PAPER 7: BORDER 1,7: 
END DEFine 

DEFine PROCedure Sound: BEEP 900,20: PAUSE 5: BEEP 900,40: 

END DEFine 

DEFine PROCedure Noise: BEEP 2000,20: END DEFine 

DEFine PROCedure CheckKey 

REPeat key 

ke=CODE (INKEYS) 

IF ke=232 OR ke=236 OR ke=240 OR ke=244 OR ke=248 THEN EXIT key 
IF ke<236 AND ke>27 THEN BEEP 900,40: CheckKey 

IF ke=27 THEN Noise: PAUSE 10: Sound: Bye: EXIT key 

END REPeat key 

END DEFine 

DEFine PROCedure FILE 

d=0: CSIZE 0,0 

WINDOW#1,512,256,0,0: PAPER#2,7: INK#2,0: CLS#2: INK 0 

LINE 0,96.5 TO 512,96.5: LINE 0,92 TO 512,92: Noise 

STRIP 7: INK 2: AT 1,55: PRINT' @ PLATYPUS Software' 

AT 1,7: STRIP 0: INK 7: PRINT" DEVICE " 

MAKER 

END DEFine 

DEFine PROCedure MAKER: d=0 

WINDOW#0, 124,132, 42,20 

PAPER#0, 7: BORDER#0,1,0: CLS#0 

AT#0,0,0: INK#0,0 


PRINT#O,\" flpl_ = ([F1] " 

PRINT#0,\" flp2_ == [F2] " 

PRINT#0,\" winl == [F3] " 

PRINT#O,\" win? == [F4] " 

PRINT#0,\" other == [F5] " 

STRIP#0,2: INK#0,7: PRINT#O,\" MDIR 1.05z " 
STRIP#0,0: INK#0,7: PRINT#0,BLANK$: INK#0,0: STRIP#0,7 


CheckKey 

YourChoice=ke 

SELect ON YourChoice 

=232: AT#0,1,0: highlight: t$="flp": a=1: dev$="flp1_": AT#0,1,0: 

INK#0,0: PRINT#0," ";devS: AT#0,1,7: INPUT#0,thi$: MakeOne 

=236: AT#0,3,0: highlight: t$="flp": a=2: dev$="flp2_": AT#0,3,0: 

INK#0,0: PRINT#0," ";dev$: AT#0,3,7: INPUT#0,thi$: MakeOne 

=240: AT#0,5,0: highlight: t$="win": a=1: dev$="winl_": AT#0,5,0: 

INK#0,0: PRINT#0," ";devS: AT#0,5,7: INPUT#0,thi$: MakeOne 

=244: AT#0,7,0: highlight: t$="win": a=2: dev$="win2_": AT#0,7,0: 

INK#0,0: PRINT#0," ";devS: AT#0,7,7: INPUT#0,thi$: MakeOne 

=248: AT#0,9,0: highlight: AT#0,9,0: INK#0,7: PRINT#0," >": 

INK#0,0: AT#0,9,2: INPUT#0,thi$: MakeOTHER : REMark use CTRL ] 

MAKER 

END SELect 

END DEFine FILE 

DEFine PROCedure highlight: STRIP#0,5: INK#0,7: PRINT#0, BLANKS: 
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END DEFine 

610 DEFine PROCedure TooLong 

620 IF LEN(thi$)>10 THEN Noise: MAKER: END IF 

630 END DEFine 

640 DEFine PROCedure MakeOne 

650 TooLong 

660 IF d=1 THEN MAKER 

670 IF LEN(thi$)<=10 THEN MAKE DIR devSéthi$ 

680 Sound 

690 MAKER 

700 END DEFine 

710 DEFine PROCedure MakeOTHER 

720 IF thi$(5)<>"_" THEN Noise: AT#0,9,0: PRINT#0,Knot$: PAUSE 30: 
STRIP#0,0: INK#0,7: AT#0,12,0: PRINT#0,Knot$: INK#0,0: Noise: 
PAUSE 30: MAKER 

730 IF LEN(thi$)>15 THEN Noise: MAKER 


740 IF thi$(5)="_" THEN tS=thi$(1 TO 3): a=thi$(4): thi2$=thi$(6 TO 
LEN (thi$) ) 

750 IF thi$(5)="_" THEN MAKE DIR t$séaé"_"&thi2$ 

760 Sound 

770 MAKER 


780 END DEFine 
790 DEFine PROCedure Bye: CLS#2: INK#2,2: AT#2,17,28: 
PRINT#2," @ PLATYPUS Software ": END DEFine 


MDIR_c 


/* 
* Program : MDIR_c 

Author : Al Feng 

isi Purpose : implement MAKE DIR keyword 

* Cfixed by Cfix "V4.03" 1995 Apr 26 18:54:49 
xf 


#define  prog_version "1.052" 

#include "Test_h" 

#include <cport.h> 

#define BLANK " " 


#define Knot "invalid QDOS device!" 
#define F "_FLIST_imp" 
#define RN les 

#define d 0 

#define BLANK abl 1 

#define dev_abl i 

#define F_ abl 1 

#define Knot_abl 1 

#define RN_abl 1 

#define t_abl 1 

#define thi_abl 1 

#define thi2_abl 1 

#define u abl 1 

float a; 

float ke; 


float YourChoice; 
CP_FILE sb channo[16]; 
char thi[20+1-thi_abl+1]; 
char thi2[15+1-thi2_ablt+1]; 
char t[(3+1-t_abl+1]; 
char u[16+1l-u_abl+1]; 
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char dev[24+1-dev_abl+1]; 


void PROCedure main () { 
CP_Initialise(); 
/* *** DIM stmt deleted - may need to reinitialise array(s) */ 
/* DIM BLANKS (24), Knot$(24), thi$(20), thi2$(15), F$(15), 
t$(3), dev$(24) */ 
/* 21 SPACES */ 
stropy (t; "£ip") +: 
a= 1; 
SB _ Poke (163890, 0); 
SB_Mode (0); 
Wt (); 
Wz(); 
Wo(); 
FILE (); 
exit (0); 

enddef 


void PROCedure Wt () /*> 170 <*/ 


{ 
SB Window(FNO(2), 512, 256, 0, 0); 
SB_ Paper (FNO(2), 7); 

enddef 


void PROCedure Wz () /*> 180 <*/ 
{ 
SB Window(FNO(0), 413, 10, 50, 241); 
SB Paper (FNO(0), 7); 
SB_Ink(FNO(0), 2); 
enddef 


void PROCedure Wo() /*> 190 <*/ 
{ 
SB Window (FNO(1), 462, 250, 25, 3); 
SB Paper (FNO(1), 7); 
SB _Border(1, 7); 
enddef 


void PROCedure Sound () /*> 200 <*/ 
{ 
SB Beep(900, 20, 0,0,0,0,0,0); 
SB Inkey(FNO(0), 5); 
SB Beep(900, 40, 0,0,0,0,0,0); 


enddef 

void PROCedure Noise () /*> 210 <*/ 
aUi; 20, 0,0,0,0,0,0); 

enddef 

void PROCedure CheckKey () /*> 220 <*/ 


{ 
while (1) { 
/*> key <*/ 
ke = (float) (SB_Inkey(FNO(0), 1)); 
if (ke == 232 || ke == 236 || ke 
248) { 
break; 
/*> key <*/ 
endif 


240 || ke == 244 || ke = 
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if (ke < 236 && ke > 27) { 
SB _Beep(900, 40, 0707070707077 
CheckKey (); 

endif 

if (ke == 27) { 
Noise (); 
SB_Inkey (FNO(0), 10); 
Sound (); 
Bye (); 
break; 
/*> key <*/ 

endif 

endwhile 
enddef 


void PROCedure FILE () /*> 300 <*/ 
{ 
SB Csize(FNO(1), 0, 0); 
SB Window(FNO(1), 512, 256, 0, 0); 
SB Paper (FNO(2), 7); 
SB_Ink(FNO(2), 0); 
SB_Cls(FNO(2), 0); 
SB_Ink(FNO(1), 0); 
SB Line(FNO(1), 0, 96.5, 512, 96.5); 
SB Line(FNO(1), 0, 92, 512, 92); 
Noise (); 
SB Strip(FNO(1), 7); 
SB Ink(FNO(1), 2); 
SB At(FNO(1), 1, 55); 
fprintf(FNO(1), " @ PLATYPUS Software\n"); 
SB At(FNO(1), 1, 7); 
SB Strip(FNO(1), 0); 
SB Ink(FNO(1), 7); 
fprintf (FNO(1), " DEVICE \n"); 
MAKER () ; 

enddef 


void PROCedure MAKER() /*> 380 <*/ 


{ 

SB _Window(FNO(0), 124, 132, 42, 20); 
SB Paper (FNO(0), 7); 

SB Border (FNO(0), 1, 0); 

SB Cls(FNO(0), 0); 

SB_At(FNO(0), 0, 0); 

SB Ink(FNO(0), 0); 


fprintf(FNO(0), "\n flpl_ == [F1] \n"); 
fprintf (FNO(0), "\n flp2_ == [F2] \n"); 
fprintf (FNO(0), "\n winl_ == [F3] \n"); 
fprintf (FNO(0), "\n win2_ == [F4] \n"); 
fprintf (FNO(0), "\n other == [F5] \n"); 


SB Strip(FNO(0), 2); 

SB_Ink(FNO(0), 7); 

fprintf (FNO(0), "\n MDIR 1.05z \n"); 
SB Strip(FNO(0), 0); 

SB_Ink(FNO(0), 7); 

fprintf(FNO(0), "%s\n", BLANK); 
SB_Ink(FNO(0), 0); 

SB Strip(FNO(0), 7); 

CheckKey () ; 

YourChoice = ke; 


switch ( YourChoice ) { 
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enddef 


case 232 : SB At(FNO(0), 1, 0); 
highlight (); 
strepy(t, "flp"); 
a=1; 
strcpy (dev, "flpl_"); 
SB_At(FNO(0), 1, 0); 
SB_Ink(FNO(0), 0); 
fprintf (FNO(0), " s\n" , 
SB_At(FNO(0), 1, 7); 


dev); 


SB_Input (FNO(0), "%s\n", thi); 


MakeoOne () ; 
break; 

case 236 : SB_At(FNO(0), 3, 0); 
highlight (); 
strepy(t, "flp"); 
a= 2; 
strcpy (dev, "flp2_"); 
SB_At (FNO(0), 3, 0); 
SB_Ink(FNO(0), 0); 
fprintf (FNO(0), " %s\n" , 
SB At (FNO(0), 3, 7); 


dev); 


SB Input (FNO(0), "%s\n", thi); 


MakeOne () ; 
break; 
case 240 : SB At(FNO(0), 5, 0); 
highlight (); 
strcpy (t, "win"); 
a= 1; 
strcpy (dev, "winl_"); 
SB_At (FNO(0), 5, 0); 
SB _Ink(FNO(0), 0); 
fprintf (FNO(0), " %s\n" , 
SB_At (FNO(0), 5, 7); 


dev); 


SB Input (FNO(0), "ts\n", thi); 


MakeOne () ; 
break; 

case 244 : SB At(FNO(0), 7, 0); 
highlight (); 
strcpy (t, "win"); 
a= 2; 
strcpy (dev, "win2_"); 
SB _At(FNO(0), 7, 0); 
SB_Ink(FNO(0), 0); 
fprintf(FNO(0), " %s\n" , 
SB At(FNO(0), 7, 7); 


dev); 


SB Input (FNO(0), "%s\n", thi); 


MakeOne () ; 
break; 

case 248 : SB At(FNO(0), 9, 0); 
highlight (); 
SB At(FNO(0), 9, 0); 
SB Ink(FNO(0), 7); 
fprintf(FNO(0), " Q\n"); 
SB_Ink(FNO(0), 0); 
SB At(FNO(0), 9, 2); 


SB Input (FNO(0), "%s\n", thi); 


MakeOTHER (); 

MAKER () ; 

break; 
endswitch 
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void PROCedure highlight () /*> 600 <*/ 


{ 

SB Strip(FNO(0), 5); 

SB_Ink(FNO(0), 7); 

fprintf (FNO(0), "%s\n", BLANK); 
enddef 


void PROCedure TooLong() /*> 610 <*/ 


{ 
if (strlen(thi) > 10) { 
Noise (); 
MAKER () ; 
endif 
enddef 


void PROCedure MakeOne () /*> 640 <*/ 
{ 
char cp strwkl[dflt_str_size]; 
TooLong() ; 
if (d= 1) { 
MAKER () ; 
endif 
if (strlen(thi) <= 10) { 
SB Make Dir(CP_Concat(cp_strwkl, dev, thi)); 
endif 
Sound () ; 
MAKER () ; 
enddef 


void PROCedure MakeOTHER () /*> 710 <*/ 
{ 
char cp strwkl[dflt_str_size]; 
char cp: strwk2[dflt_. str size]; 
char cp: ) strwk3[dflt_. str size]; 
char cp strwk4[dflt_| str size]; 
if (thi[5-thi _ab1] = ETJ a 
Noise (); 
SB _At(FNO(0), 9, 0); 
fprintf(FNO(0), "%s\n", Knot); 
SB_Inkey(FNO(0), 30); 
SB Strip(FNO(0), 0); 
SB y Ink (FNO(0), 7); 
SB At (FNO(0), 12, 0); 
fprintf (FNO(0), "%s\n", Knot); 
SB_Ink(FNO(0), 0); 
Noise (); 
SB_Inkey(FNO(0), 30); 
MAKER () ; 
endif 
if (strlen(thi) > 15) { 
Noise (); 
MAKER () ; 
endif 
if (thi[5-thi_abl] == ' ') { 
CP_Slice(t, thi, 1-thi _abl, 3-thi_abl); 
a = (float) (thi[4-thi ~abl]); 
CP_Slice(thi2, thi, 6- -thi_abl, strlen (thi)-thi_ab1); 


endif 
if (thi[5-thi_ab1l] == '_') { 

SB Make Dir (CP _Concat (cp_ strwk4, CP - Concat (cp _; strwk3, 
CP_Concat (cp_strwk2, t, ftoa(cp_strwkl, a)), "_"), thi2)); 
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endif 

Sound () ; 

MAKER () ; 
enddef 


void PROCedure Bye() /*> 790 <*/ 
{ 
SB_Cls(FNO(2), 0); 
SB_Ink(FNO(2), 2); 
SB_At (FNO(2), 17, 28); 
fprintf(FNO(2), " @ PLATYPUS Software \n"); 
enddef 


/* Cport: Translation done, at 2840 statements per minute. 
0 errors and 0 warnings. */ 


MDIR_h 


void Wt(); 

void Wz(); 

void Wo(); 

void Sound () ; 
void Noise(); 
void CheckKey(); 
void FILE (); 
void MAKER(); 
void highlight(); 
void TooLong(); 
void MakeOne(); 
void MakeOTHER () ; 
void Bye(); 
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